Uses
	Classes,
	SysUtils,
	PWInit,
	PWMain,
	RTTIObject,
	WebComponents,
	WebApplication,
	ActiveRecords;

Type
	TUserRecord = Class(TActiveRecord)
	Private
		fLogin,
		fPassword,
		fIP,
		fMac,
		fName,
		fAddress,
		fTelephone,
		fRG,
		fCPF : String;
		fBandwidthUp,
		fBandwidthDown : Integer;
	Public
		Constructor Create(Const aInstanceName : String); Override;
	Published
		Property Login : String Read fLogin Write fLogin;
		Property Password : String Read fPassword Write fPassword;
		Property IP : String Read fIP Write fIP;
		Property Mac : String Read fMac Write fMac;
		Property Name : String Read fName Write fName;
		Property Address : String Read fAddress Write fAddress;
		Property Telephone : String Read fTelephone Write fTelephone;
		Property RG : String Read fRG Write fRG;
		Property CPF : String Read fCPF Write fCPF;
		Property BandwidthUp : Integer Read fBandwidthUp Write fBandwidthUp;
		Property BandwidthDown : Integer Read fBandwidthDown Write fBandwidthDown;
	End;

Constructor TUserRecord.Create(Const aInstanceName : String);
Begin
	Inherited Create(aInstanceName);
	AddEditable('Login');
	AddEditable('Password');
	AddEditable('IP');
	AddEditable('Mac');
	AddEditable('Name');
	AddEditable('Address');
	AddEditable('Telephone');
	AddEditable('RG');
	AddEditable('CPF');
	AddEditable('BandwidthUp');
	AddEditable('BandwidthDown');
End;
	
Var
	Application : TWebApplication;
	E : Exception;

Begin
	//Try
		Factory.Register(TUserRecord);
		Application := TWebApplication.Create('usermanager');
		Application.Run;
		Application.Free;
	//Except
	//	On E: Exception Do
	//		OutLn(E.Message);
	//End;
End.